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-- File: menudefs.mesa Edited by Barbara on January 12, 1977 4:25 PM 

DIRECTORY 

StreamDefs: FROM "streamdef s" , 
SegmentDefs: FROM "segmentdef s" , 
RectangleDefs: FROM "rectangledef s"; 

DEFINITIONS FROM StreamDefs, RectangleDefs; 

MenuDefs: DEFINITIONS = 
BEGIN 

-- Pointers and stuff 

menulef tmargin : INTEGER = 5; 

MenuHandle: TYPE = POINTER TO MenuObject; 

MenuArray: TYPE = DESCRIPTOR FOR ARRAY OF Menultem; 

-- Procedures Implementing Menus 

CreateMenu: PUBLIC PROCEDURE 

[array: MenuArray] 

RETURNS[MenuHandle]; 
DestroyMenu: PUBLIC PROCEDURE 

[menu: MenuHandle]; 
DisplayMenu: PUBLIC PROCEDURE 

[menu: MenuHandle, mapdata: BMHandle, x: xCoord, y: yCoord]; 
ClearMenu: PUBLIC PROCEDURE 

[menu: MenuHandle]; 
MarkMenuItem: PUBLIC PROCEDURE 

[menu: MenuHandle, index: INTEGER]; 

-- RECORDS 

Menultem: TYPE = RECORD 

[ 

keyword: STRING, 

proc: PROCEDURE[UNSPECIFIED, xCoord, yCoord] 

3; 

MenuObject: TYPE = RECORD 

[ 

link: MenuHandle, 

index: INTEGER, 

width: xCoord, 

rectangle: Rptr, 

menu s eg : SegmentDefs . FileSegmentHandle, 

da t as eg : SegmentDefs . Fi leSegment Handle, 

array: MenuArray 

]: 
END. of MenuDefs 


